COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.OLD[PAS,SYS]	12-30-81 16:43	pages 1,1
C00006 ENDMK
C⊗;
  1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.OLD[PAS,SYS]	12-30-81 16:43	pages 1,1

**** File 1) LIBMAC.MAC[PAS,SYS]/32P/81L
1)	;*** Special SAIL UUO's
1)	;
1)		OPDEF TTYSET [047000400121]
1)		OPDEF CTLV   [047000400001]
1)		OPDEF SETACT [051640000000]
1)	;
1)	;*** START OF VARIANT CODE
1)	;
1)						;TTY state information for SAIL
1)	LINCHR:	0				;Line characteristics
1)	IOSTAT:	0				;Terminal i/o status word
1)	OLDACT: 0				;Old special activation table
1)		0
1)		0
1)		0
1)	 
1)		LOC .JBDDT			;UPDATE .JBDDT
**** File 2) LIBMAC.OLD[PAS,SYS]/32P/81L
2)	;*** START OF VARIANT CODE
2)	;
2)		LOC .JBDDT			;UPDATE .JBDDT
***************


**** File 1) LIBMAC.MAC[PAS,SYS]/32P/222L
1)	;    - Save tty state (SAIL)
1)	;    - SAVE USER REGISTERS
**** File 2) LIBMAC.OLD[PAS,SYS]/32P/208L
2)	;    - SAVE USER REGISTERS


**** File 1) LIBMAC.MAC[PAS,SYS]/32P/226L
1)	;    - Restore tty state (SAIL)
1)	;    - RESTORE USER REGISTERS AND RETURN
1)	;
1)	DEBUG.:	MOVE	AC1	,[XWD -4, [XWD 013000,IOSTAT	;Remember if echoing
1)					   XWD 012000,200	;Turn off NOECHO bit
1)					   XWD 003000,LINCHR	;Remember if special
1)					   XWD 002000,100 ] ]	;activation mode
1)		TTYSET	AC1	,		;Do the above
1)		SETACT	[XWD OLDACT, [OCT 0,0,0,0Y ]	;Save old activation table
1)		MOVE	AC1	,RGSTRS		;GET DEBUG-REGISTERS
1)		MOVEI	NEWREG	,DABSIZE(AC1)
**** File 2) DIBMAC.OLD[PAS,SIS]/3"P/211L
2)	;    - RESTORE USER REGISTERS AND RETURN
2)	;
2)	DEBUG.: MOVE	AC1	,RGSTRS		;GET DEBUG-REGISTERS
2)		MOVEI	NEWREG	,DEBSIZE(AC1)
***************


**** File 1) LIBMAC.MACYPAS,SYS]/32P/240L
1)		SETACT	[XWD 0,OLDACT]		;Restore useR's activation table
1)		MOVE	AC1	,IKS@)¬(∩∩w≥KhA←1HAiidAR←↑↓giCiUbAo←IH~∀b$∩∪)%9
∪βεD∩Xd`@∩∩wπ∃JASL↓KGQ↑↓cQ←k1HAEJ↓←ML~(bR∩∪
)→,∩$∩∩fAeKf@Z↓ice\↓ShA←→L~∀b$∩∪≠∨Y
∪βεD∩Y→∪9π⊃$∩$w∂Kh↓←YHAQirAY%]JAG!CeCGQKeSGQSGf~(bR∩∪Q→≥≤∪¬εb∩XD``∩∩m'KJA%HAga∃GSCX↓CGiSYCiS←8A[←I∀AoCf↓←\~∀DR∩∪∃I'(∩\,f∩∩∩lA≥↑@4AgWS@ACQK¬H~∀b$∩∪≠∨Y
∪βεD∩Y71]λ@Zb0A71/⊂@``b@``Xb@a:A:4∀bR∩%))3'∃(∪βεD∩X∩∩lA3KfZAikI\ASh↓ECGV↓←\~∀DR∩∪⊃I→4∩b\∩Y%∂M)%&∩$w%'Q∨%
AU'$[I∂∪'Q%&~(TTTT↓
SYJdRA→%¬≠βε9∨→	7Aβ&Y'e':↑fI ↑dba_~∀d$∩∪⊃%14∩bn$Y%∂'Q%&∩∩m%')=%
A+M$[%∃∂∪')∃%&~∀(TTTT(TTTT(TTTT4∀~∀